home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / FADE2.ZIP / FORM1.FRM < prev    next >
Text File  |  1997-09-14  |  2KB  |  77 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3564
  6.    ClientLeft      =   168
  7.    ClientTop       =   1932
  8.    ClientWidth     =   4176
  9.    Height          =   4032
  10.    Left            =   96
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3564
  13.    ScaleWidth      =   4176
  14.    Top             =   1536
  15.    Width           =   4320
  16.    Begin Frame fraGradient 
  17.       Caption         =   "Gradient Types"
  18.       Height          =   1452
  19.       Left            =   1440
  20.       TabIndex        =   0
  21.       Top             =   1440
  22.       Width           =   2052
  23.       Begin OptionButton optGradient 
  24.          Caption         =   "Horizontal"
  25.          Height          =   372
  26.          Index           =   2
  27.          Left            =   120
  28.          TabIndex        =   3
  29.          Top             =   960
  30.          Width           =   1332
  31.       End
  32.       Begin OptionButton optGradient 
  33.          Caption         =   "Vertical"
  34.          Height          =   372
  35.          Index           =   1
  36.          Left            =   120
  37.          TabIndex        =   2
  38.          Top             =   600
  39.          Width           =   1332
  40.       End
  41.       Begin OptionButton optGradient 
  42.          Caption         =   "Diagonal"
  43.          Height          =   372
  44.          Index           =   0
  45.          Left            =   120
  46.          TabIndex        =   1
  47.          Top             =   240
  48.          Value           =   -1  'True
  49.          Width           =   1332
  50.       End
  51.    End
  52. End
  53. Option Explicit
  54.  
  55. Sub Form_Load ()
  56.     Move 0, 0, Screen.Width, Screen.Height * .85
  57. End Sub
  58.  
  59. Sub Form_Resize ()
  60.     If Me.WindowState <> 1 Then
  61.         If optGradient(0).Value Then
  62.             Call FadeForm(Me, 0)
  63.         ElseIf optGradient(1).Value Then
  64.             Call FadeForm(Me, 1)
  65.         ElseIf optGradient(2).Value Then
  66.             Call FadeForm(Me, 2)
  67.         Else
  68.             Call FadeForm(Me, 666)
  69.         End If
  70.     End If
  71. End Sub
  72.  
  73. Sub optGradient_Click (index As Integer)
  74.     Call FadeForm(Me, index)
  75. End Sub
  76.  
  77.